﻿Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Access
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Public Class AccessFormTransformer
    Inherits BaseAccessObjectTransformer
    Implements IAccessColection

    Public Overrides Function getSubfolder() As String

        Return "Forms"

    End Function

    Public Overrides Function getExtension() As String
        Return "ACF"
    End Function

    Protected Overrides Function getAccessType() As Microsoft.Office.Interop.Access.AcObjectType
        Return AcObjectType.acForm
    End Function

    Public Function getObjects() As Microsoft.Office.Interop.Access.AllObjects Implements IAccessColection.getAccessObjects
        Return _app.CurrentProject.AllForms
    End Function
End Class
